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== DSR/DSRPLUS DSRINDEX/INDEX UtiLit 16-Sep-1984 00:45:29 VAK= 
Y FR BEB= BBE 99: 43:2 I 
TITLE "INDEX <= DSR/DSRPLUS DSRINDEX/INDEX Utility’ 
*V0=900" ' 


MODULE INDEX (IDENT = 
+ ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 


11 Bliss-32 V4.0-742 P 1 
6 D SKSVMSMASTER: CRUNOFF.SRCJINDEX.BLI;1> (1) 


%BLISS3 


BEGIN 


ASRS SESESICLESI OTS I TST TET TT TPCT eT ect e rir ti i titi t iii tit iit iii ii ititiiy 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


is me SOFTWARE IS ath oe UNDER A LICENSE AND MAY B 


USED AND COPIED 
IN ACCORDANCE H_TH 


E 
ITH THE TERMS OF SUCH LICENSE AND WITH T ; 


i THE INFORMATION IN THIS SOFTWARE iS SUBJECT TO CHANGE WITHOUT NOTICE 
* eORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ITY FOR THE USE OR RELIABILITY OF ITS 


it DIGITAL ASSUMES NO RESPONSIBILIT 
1S NOT SUPPLIED BY DIGITAL. 


I 
'® SOFTWARE ON EQUIPMENT WHICH 
it 
REPT I tI Titi rir tii r iit iii iii iii iii ii iiiiiiiiiiiiiiiiiiiiiiit) 
i 


* 
*® 
& 
& 
7 
® 
® 
® 
® 
' ® 
ix TRANSFERRED. * 
® 
* 
® 
® 
® 
® 
® 
* 
® 
* 


'e4 
! FACILITY: 
: DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 


ABSTRACT: 
This moduie contains the two major routines that make up the INDEX utility: 


NDXINP = Reads input file and builds internal binary index 
MAKNDX = Writes formatted index from internal binary index 


ENVIRONMENT: Transportable 
AUTHOR: JPK 

CREATION DATE: December 1981 
MODIFIED BY: 
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009 JPK00023 eorex” se? 
Modified INDEX, NDXT20 and NDXVMS to check status of 
$XPO_PARSE_SPEC to avoid error messages from XPORT. 

008 JPK00018 09-Mar-1983 
Modified INDEX to handle new BRN format. - 
Modified NDXOUT to handle specifyable levels on SORT= string. 
Modified NDXFMT to output new RUNOFF presogue, 
Modified NDXPAG to output new TMS prologue and RUNOFF epilogue. 


mt wo ne 4 2 a 4 Ls ss ts 
FUN =SSRVEAE AROS 
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were more than one transaction preceeding the capty i \e. 


819) transaction numbers would appear out of sequence which would 
O108 be reported by INDEX as an internal logic error. 
8 04 oo 
105 
196 ' 
107 ! TABLE OF CONTENTS: 
198 ! 
10 
110 FORWARD ROUTINE 
111 NDXINP : NOVALUE, ! Create internal binary index 
1 MAKNDX : NOVALUE; ! Write formatted index 
0114 


] 
2 1! | 
g ; 1! 007 JPKO0015 04-Feb-1983 
60 1! Cleaned up module names, modified revision aistery to 
bes ! conform with established standards. Updated copyright dates. | 
$68 1! 006 spnogte 24-Jan-1983 
064 1! Modified NDXVMSMSG.MSG to define error messages for both 
065 1! DSRINDEX and INDEX. 
be8 1! Added require of NDXVMSREQ.R32 to NDXOUT, NDXFMT, NDXDAT 
067 1! INDEX, NDXMSG, NDXXTN, NDXTMS, NDXVMS and NDXPAG for BLISS32. 
0068 1! Since this file defines the error message literals, 
34 ‘3 the EXTERNAL REFERENCEs for the error message literals 
A : } have been removed. 
BRr¢ 2 005 JPK00011 24-Jan-19 
007 1! Changed CMDBLK CNDX$G_LEVEL] to CMDBLK CNDX$H_LEVEL] 
0074 1! Changed CMDBLK CNDX$H-FORMAT] to CMDBLK CNDX$A_LAYOUT] 
0075 1! Changed CMDBLK CNOX$V_TMS11] and CMDBLK CNDX$V_TEX] to CMDBLK CNDX$H_FORMAT] 
R278 1! Changed oper stent of (.CHRSIZ SOLA CHRSZA) to 
007 1! (.CMDBLK CNDXSH_FORMAT] EQL TMS11_A). 
0078 1! Definitions were changed in NDXCLI and references to the 
0079 1! effected fields were changed in NDXPAG, NDXFMT, INDEX, NDXVMS 
Boe) : and NDXCLIDMP. 
404 1! 004 JPK00009 24-Jan-1983 
0083 1! Modified to enhance performance. The sort buckets have each 
0084 1! been divided into 27 sub-buckets; 1 for each letter and 1 
0085 1! for non-alphas. Removed reference to BUCKET from INDEX. 
0086 1! Definition of the structure was added to NDXPOL. References 
0087 1! to BUCKET were changed in modules NDXOUT, NDXINI, NDXFMT 
44 ! and NDXDAT. 
0090 1! 003 JPK00007 24-Sep-1982 
99 ! Reset PAGENO if not concatenated input in INDEX. 
0093 1! 002 JPK00002 16-Sep-1982 
0094 1! Fix transaction a es | bug in INDEX. This bug occurred only 
0095 1! when processing more than one input file where a file in the 
0096 1! middle of the sequence contained no sagen ing information. 
0097 1! If there had been only one transaction previous to the 
0098 1! empty file, the resul ing page numbers would be incorrect 
0099 ; but the error would not be discovered by INDEX. If there 
1 i 
1! | 
1! 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
a 
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0 od 
ee 
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BLi 
SMA 
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mw 


EXTERNAL REFERENCES: 


EXTERNAL LITERAL 
RINTES : UNSIGNED (8); 


EXTERNAL 


! RUNOFF escape sequence character 


115 1 1 INCLUDE FILES: | 
We 4° 
118 ! LIBRARY ‘NXPORT:XPORT'; 
Jeo } REQUIRE ‘REQ:NDXCLI'; ! Command Line information block 
! REQUIRE "REQ:BRNRTY'; ! .BRN file record type Literals 
ie : REQUIRE ‘REQ:NDXRTY'; ! Index binary record type literals 
44 | REQUIRE ‘REQ:NDXXPL'; ! Extended indexing attributes 
; 3 ! REQUIRE ‘REQ:NDXPOL'; ! Pool data structures 
4 : : REQUIRE ‘REQ:PAGEN'; ! Page reference data structure definitions 
48] 1 RIF ZBLISS (BLISS32) ! For BLISS32 
S8p | Bike 
484 } REQUIRE ‘REQ:NDXVMSREQ'; ! Error message numbers 
1091 1 &FI 
1336 | 
1094 1 | MACROS: 
135 1 
1097 1 ' EQUATED SYMBOLS: 
1099 1 
1100 1 LITERAL 
1101 1 TRUE = 1 
1108 1 FALSE = 6; 
ae 
1105 1 | OWN STORAGE: 
1106 1! 
He 
1109 1 XTN_OFFSET, ' Used to remap transaction numbers 
1110 1 HIGREST_XTN_OUT, ! Highest remapped transaction number 
1112 : INDEX_ERTRIES : INITIAL (0); ! Number of binary index entries processes 
1113 1 
1114 1 RNX_FILE : SSTR_DESCRIPTOR (STRING = °.RNX'), 
1115 1 TMS_FILE SSTR_DESCRIPTOR (STRING = '.TMS'), 
1118 : TEX_FILE : $STR_DESCRIPTOR (STRING = ‘.TEX'); 
1118 #1 
1119 1 
1120 1 
18 
11 4 1 
1124 1 
1125 1 


a 

POLLS SELISLASSSSELFSPALAS SANSOM S 
s 
bene 


PVPS SVS BB BS BS BB AAW II IIIiponornor 


CNAME WN 0 OONAUE WN OOS NOUS WI OOONO 
ee ee ee ee ee ee ee ee ee ee ee ee eee ee 


PMIPININNY 2 2 9 9 9 PS Ss 


== DSR/DSRPLUS DSRINDEX/INDEX Utility 


CMDBLK : oot 


XPLBLK : $xP BLOC 


PAGEN : PAGE-DEF I 
PA 


EXTERNAL ROUTINE 
RIF XBLISS (BLISS32) 
THEN 


OPEN_ERROR, 


. E 
NDXFMT : NOVALUE, 
SAVDAT; 


£01984 99: 43: ¢ VAX-11 Bliss-32_V 


! Handle file open errors for BLISS32 


——_——_~_ --—--- + 


Sz 


742 4 
DISKSVMSMASTER: chUNOFE SRCJINDEX.BLI; ri (1) 


! Command Line information block 
Extended [nersine information block 
Output file 108 


Page counter 
Address of indexing pool 
End of current segment. 


Number of XTNTAB entries 


List of transaction numbers assigned 
Master index book ident string address 


Dump entry text 

oH rh eet bap # to page reference 
alize pool 

Release pool space 

Insert index entry in internal binary index 
Generate final output index 

Insert data in index pool 


om 
oO 
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ZSBTTL "GLOBAL ROUTINE NDXINP == Process input file’ 
GLOBAL ROUTINE NDXINP : NOVALUE = 
‘ood 
FUNCTIONAL DESCRIPTION: 
This routine generates an internal binary index from an input file. 


PAA 


If the input file is not concatenated to the previous input file, 
this routine calls MAKNDX to generate the output index from the 
existing internal binary index before processing the input file. 


FORMAL PARAMETERS: 
Nove ° 
IMPLICIT INPUTS: 
CMDBLK = Command Line information block 
IMPLICIT OUTPUTS: 
CMDBLK CNDX$T_RELATED_FILE] - 
This string is set to the resultant input file specification for 
every input file which is not concatenated to the previous one. 
Thus the related file name for a series of concatenated input files 
is the resultant file name of the first file in the series. 
XPLBLK - 
This global da 
an INDEX_ATTRI 


INDEX_ENTRIES - 
is set to the number of binary index records processed. 


XTN_OFFSET - 
is set to the highest transaction number processed in the current 
input stream. 
BOOKID - : : ; 
is the address of the book identification string if generating 
a master index. 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 


ta structure is filled in with data read in from 
BUTES record group. 


WOO O00 000000000 090000 09 09 909 SIN * INNO OO 


APUMVIAMOGSH UE ARG OOOH MONET HOD GME OSORIO eo dan 


BEGIN 


PD a a 8 8 a tt tt ek 8 as a ds a 8 st ss 2 a 
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63 LOCAL 

64 PARSE _BLK : $XPO_SPEC_BLOCK ! For perging input file name 

65 INPUT-I10B_: $XPO_10B 7) VOLATILE, } input file 108 

98 FILE IDENTIFIER, ! Will hold input file type code 

6 INDER_VERSION, ! Will hold index file format revision level 

oR INDEX RECORDS, ! Number of index entry recerds in input file 

6 HEADING_LENGTH, ! Length of record group headings 

70 CONFUSE _ COUNT } 

4 CORRECT-FORMAT; i For checking file format 

48 ; 

ie Initialization 

| INDEX_RECORDS = 0; ! No indexing information seen yet 

f CONFUSE_COUNT = 0; ! Initialize ‘‘confused’’ counter 

79 : 


: Initialize input 10B and parse input file specification 
$XPO_I0B_INIT (108 = INPUT_10B); 
IF NOT $XPO_PARSE_SPEC (SPEC_BLOCK = PARSE_BLK, FAILURE = 0, 

FILE_SPEC = CMDBCK CNDX$T_INPUT_FILEJ) 
THEN | 
i Input file name parse failed. Set file type length non-zero to force 
quick open failure message. 
PARSE_BLK CXPOSH_FILE_TYPE) = 1; 
IF .PARSE_BLK CXPOSH_FILE_TYPE] NEQ 0 
THEN 


4 
User specified a file type. Open file with no defaults. 


$XPO_OPEN (I0B = INPUT_10B FILE_SPEC = CMDBLK CNDXS$T_INPUT_FILEJ, ATTRIBUTES = BINARY 
ZIF XBLISS (BLISS32) XTHEN , FAILURE = OPEN ERROR” %F I 

BEGIN 

User did not specify a file type. Try .BRN first. 


if 7 rhe (10B = INPUT 10B, FILE SPEC = CMDBLK CNDX$T_INPUT_FILEJ, 
= 


PAARL DPDPED AAs I SS BS BS EB BE WINN OPIPIPONPNPINNPUDD 2 2 


POR OPOPPOPOPOPONONIPONONOPONOPONONIPOPUPOPONIPINUNI NONI NNO PUNUPUPUPUPUNOPOPURUPOPPURUPUPONPUROPURURUPURONUT 


| ELSE 
4 
4 
4 
4 
& 
4 
& 
& 
4 
3 


SSUSARUNIOS 
vw vo 


POPIPIPSPOIPIPININININIPYININIPUNININIPUPIPIPIPIPIPIPIPPUPONONNINPUPUPD 
OO0O0000 000000000 00M OD CD CD 08 I 
v0 v 

ee ee ec ec ee ee a ee ae ce ae ee ee ee ce ce ee a ee ec ee ee ce ee ce ed ce ee ed ee ee 


EFA .BRN', ATTRIBUTES = BINARY, FAILURE = 0) 

NEQ XPO$_NORMAL 

THEN 
19 BEGIN 
12 ; No .BRN file, try .BIX 
14 $XPO_10B_INIT (10B = INPUT_10B); 
15 P $XPO-OPER (10B = INPUT 10B, FILE_SPEC = CMDBLK CNDX$T_INPUT_FILE), 
1 P EFAULT = '.BIX', ATTRIBUTES = BINARY 
i P re XIF YBLISS (BLISS32) XTHEN , FAILURE = OPEN_ERROR %FI 
1 oe 


Counter of “‘confused’’ messages 
END; 


Be Se Se Ge Be Se Ge Se Ge Ge Ge Fe Ge Se Se Se Ge Be Ge Ge Se Se ee Fe Ge Ge Fe Fe Ge Se Gs Ge Se FH Se Fe Se Be Ge Se Ge Se oe Ge Se Ge SF Ss SH Se Ge Se Se Ge Se ee ee 


HIGREST_XTN_OUT = 0; 

END; 
i] 
! Initialize the internal index if necessary 
iF .NDXPOL EQL 0 THEN XINIT (); 


1 
| Setup master index book identifier 


BEGIN 
BIND 
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° } fe END; 
§ 127 IF .CMDBLK CNDX$V_LOG] 
‘Piicat §5 de cea 
5 L1 i ZIF XBLISS (BL1SS$32) 
8 : 4 XZTHEN ! Signal message for BLISS32 
3 ! ; SIGNAL (INDEXS$_PROCFILE, 1, INPUT_IOB CIOBST_RESULTANT)); 
: : } ; ZELSE ! Use $XPO_PUT_MSG otherwise 
§ U 1285 SXPO_PUT_MSG (SEVERITY = SUCCESS, 
: ' § STRING = $STR_CONCAT (‘processing file ''', INPUT_10B CIOBST_RESULTANTJ, '''')); 
5 : 3 ZF i 
1290 IF NOT .CMDBLK CNDX$V_INPUT_CONCAT) 
1291 THEN 
BBR ae 
a : 3e Input file is not concatenated to previous input file. 
re 1296 i Call MAKNDX to generate the output file for the previous input file 
44 1297 ! if there were any index entries. MAKNDX will also re-initialize 
42 : 38 the internal index and transaction pools. 
47 1300 MAKNDX (); 
rk 1302 ; 
50 1 08 i Save resultant input file specification to be used as the related 
3 : Be file name when the next output file is created by MAKNDX. 
38 \ 06 $STR_COPY (STRING = INPUT_IOB CIOBST_RESULTANT], TARGET = CMDBLK CNDX$T_RELATED_FILEJ); 
25 Reset the page counter 
37 PAGENO = 0; 
59 1 i Reset transaction mapping. There are no transactions in the 
: ! current input stream yet. 
é XTN_OFFSET = 0; 
1 
1 
1 
q 
1 
1 
1 
1 
1 
1 
1 
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DSC = CMDBLK CNDXST_MASTER_BOOK] : SSTR_DESCRIPTOR (); 
= = SAVDAT (.DSC CSTRSA_POINTER], DS_X_STRING, .DSC CSTRSH_LENGTH)); 
| Read file indentification record. 
IF SXPO_GET (10B = INPUT_IOB, FULLWORDS = 1) NEQ XPOS$_NORMAL 

BEGIN 

Empty input file. 


RIF XBLISS (BLISS32) 


F atte ee et ee ae he th ab od ah ad ad an ahaa ental 


PAD 9 OONOA US WIN 9 ODNAULS WIN O ODNAULS WN | OOONAUS ARO ODONOUS WIN 


ZTHEN ! Signal error for BLISS32 

SIGNAL CINDEXS_EMPTYIN, 1, INPUT_IOB CIOBST_RESULTANT)); 
ZELSE ! Use SXPO_PUT_MSG otherwise 

SXPO_PUT_MSG (SEVERITY = WARNING, 

STRING = S$STR_CONCAT (‘empty input file ''', INPUT_IOB CIOBSST_RESULTANT], '''')); 

xF I 

$XPO_CLOSE (10B = INPUT_IOB); 

74h ge 


FILE IDENTIFIER = .(.INPUT_IOB CIOBSA_DATA])<0, %BPVAL/2, 1>; 
INDER_VERSION = .(. INPUT_108 CIOBSA_DATA])<%BPVAL/2, YBPVAL/2, 1>; 
CORRECT_FORMAT = TRUE; ! Assume correct file format 


SELECTONE TRUE OF 
SET 


1 iat EQL BRN_FILE) : 


WAAR BEE HSH SWANN PININPININININININ AWWA AANA ANIA NOPONOPONUWIWIW 


C.FILE 

3 BEG 
Binary RuNoff format file (.BRN) 
HEADING_LENGTH = 2; ! Length of record group headings 
it omre_cet (10B = INPUT_IOB, FULLWORDS = 1) EQL XPO$S_NORMAL 
4 qeein 

7 ; Validate .BRN format information 
H if -- INPUT_I10B CIOBSA_DATA] NEQ BRN_IDENT THEN CORRECT_FORMAT = FALSE; 
1. 

2 CORRECT_FORMAT = FALSE; ! Bad input file format - no ident info 
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END; 
C(.FILE_IDENTIFIER EQL NEW SEQUENCE) AND (.INDEX_VERSION EQL INDEX_FORMAT)] : 
Input file is .BIX format. Set record group heading length. 
HEADING LENGTH = 1; 
COTHERWISE) : 
Invalid input file format 
, CORRECT_FORMAT = FALSE; 
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-z 
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SAAANAWANAAI NWA 


ODOOOOOOOOO 


OCONAULS WN OOOn 


IF NOT .CORRECT_FORMAT 
BEGIN 
Report invalid input file format and quit. 


RIF ZBLISS (BLISS32) 


THEN ! Signal error for BLISS32 
SIGNAL CINDEX$_INVINPUT, 1, INPUT_I10B CIOBST_RESULTANT)); 
ZELSE ! Use SXPO_PUT_MSG otherwise 


$XPO_PUT_MSG (SEV yf Y 


= WARN 
STRING = $STR_CONCAT 


‘vatid input file format ''*, INPUT_I0B CIOBST_RESULTANTJ, '''')); 


ae 
wn" 
bene 


$XPO_CLOSE (I10B = INPUT_IOB); 
RETURN; 


' 
Process the input file. 


WHILE $XPO_GET (10B = INPUT_IOB, FULLWORDS = .HEADING_LENGTH) EQL XPOS_NORMAL DO 


IND 
GROUP_HEAD = .INPUT_IOB CIOBSA_DATA) : VECTOR; 
Fagg ERENT IFIED EQL BRN_FILE) AND (.GROUP_HEAD [C0] NEQ BRN_INDEX) 
BEGIN 


File is .BRN format but record group is not an index 
record group -- skip rest of record group. 


$XPO_GET (10B = INPUT_IOB, FULLWORDS = .GROUP_HEAD (1)); 
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ELSE 
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491 444 BEGIN 
38 cee LOCAL 
4 ra RECORD TYPE: 
95 468 we 
3 18 | a the tneut file is © Baw ft d the ind d 
. e n u e Ss 2 . e t 
98 ¢2) } group identifier. roe Mee a 
438 if .FILE_IDENTIFIER EQL BRN_FILE THEN $XPO_GET (108 = INPUT_10B, FULLWORDS = 1); 
i RECORD_TYPE = .(.INPUT_I0B CIOBSA_DATAI)<0, %BPVAL/2>; 
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SELECTONE TRUE OF 
SET 


C.RE TYPE EQL NEW_SEQUENCE) : 
VERSION = .(.INPUT_IOB CIOBSA_DATA])<%BPVAL/2, %BPVAL/2, 1>; 


INDEX VERSION NEQ INDEX_FORMAT) 
-PILE_TDENTIFIER NEQ BRN_FILE) 


Report invalid input file format and quit. 


| 
ZI1F XBLISS (BLISS32) 
XTHEN ! Signal error for BLISS32 
| 


SIGNAL CINDEXS_INVINPUT, 1, INPUT_IOB CIOBST_RESULTANT)); 


ZELSE ! Use $XPO_PUT_MSG otherwise 

U SXPO_PUT MSG (SEVERITY = WARNING 

U STRING = $STR_CONCAT (‘invalid input file format ''', 
u INPUT_IOB™CIOBST_RESULTANTJ, °''')); 
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$XPO_CLOSE (I10B = INPUT_IOB); 
RETURN; 
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: END; 

5 

5 C.RECORD TYPE EQL INDEX_XTN] : 

44 BEGIN 

341 Index page reference transaction 

58 CONFUSE COUNT = 0; 

545 $XPO_GET (10B = INPUT_IOB, FULLWORDS = PAGE_SCT_SIZE + 1); 
4 BEGIN 

349 0 BIND 
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v04-000 GLOBAL ROUTINE NDXINP == Process input file 13-88-1382 90:68:86 DISKSVMSMASTER: CRUNOFF . SRCJINDEX.BLI:1> (2) 

: 54 1501 XTN_AND_PAGE = .INPUT_IOB [IOBSA_DATA] : VECTOR, ‘ 
; fi } é PAGE_REF = XTN_AND_PAGE Pr : PAGE_DEFINITION; : 
: $51 1504 6 IF .XTN_AND_PAGE [0] NEQ 0 : 
; 2g i 8 § neg BEGIN : 
s 554 1 88 7 ! . 
: 2 ! 8 4 ; Process only non-zero transaction numbers ‘ 
: 228 1510 7 HIGHEST_XTN_OUT = .XTN_AND_PAGE CO] + .XTN_OFFSET; ! Remap transaction number : 
; 558 1511 7 ASGXTN TPAGE_REF, .HIGREST_XTN_OUT); ! Store xtn in internal pool : 
3 220 1316 6 END; : 
; 560 151 ° : 
; 561 1514 END; . 
3 206 1515 5 : 
3; (636 1516 4 END; : 
; ee 134 ¢ C.RECORD_TYPE EQL INDEX_ENTRYJ 
; 566 1819 5 BEGIN = : 
. oe i ; : 
3 ! Index entry record grou : 
: 569 1322 5 i . ai ; 
; $70 15 5 LOCAL ; 
: 3) 12 ¢ : DESCRIPTOR : VECTOR (3); : 
: 278 1526 5 CONFUSE_COUNT = 0; : 
; gfe iF T44 : $XPO_GET (I0B = INPUT_IOB, FULLWORDS = 3); ! Get descriptor : 
s 376 136? 6 BEGIN ; 
s Srv 1530 6 BIND ; 
; 578 1531 6 X = .INPUT_IOB CIOBSA_DATA] : VECTOR; : 
; 579 1236 6 : 
; 580 1533 6 INCR I FROM 1 TO 3 DO ° 
; 581 1534 6 DESCRIPTOR C.I - 1) = .X C.1 - 1); ! Copy descriptor : 
; abe 1535 6 : 
s 38 1536 5 END; : 
; 584 1537 5 : 
s 385 P1538 5 $XPO_GET (IOB = INPUT_IOB ' Get entry text 3 
: 386 1373 ; FULLWORDS = CHSALCOCATION (.DESCRIPTOR (0])); : 
3; 588 1541 5 IF .DESCRIPTOR CO) GTR 1200 2 
3; 589 1366 5 THEN : 
; 590 1543 6 BEGIN ; 
3 ee) 1544 6 ! F 
3 4 1545 6 ! Entry text is too long. . : 
; 59 1338 6 ' Tell the user and truncate it. 3 
3 aoe 1547 6 : 3 
3; 4595 L 1548 6 ZIF XBLISS (BLISS32) ; 3 
; 596 1549 6 ZTHEN ! Signal errors for BLISS32 3 
3; 597 1550 6 ; 
; 598 1551 6 SIGNAL (CINDEX$_TRUNCATED); $ 
3; 599 1336 6 . ° 
3 600 4 1327 ° ZELSE ! Use $XPO_PUT_MSG otherwise : 
: 602 U 1322 6 $XPO_PUT_MSG (SEVERITY = WARNING, STRING = ‘string too long - truncated’); 3 
: 603 U1 2 6 > 
3; 604 1557 6 &FI ; 
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GLOBAL ROUTINE NDXINP == Process input ite 12-808 -1 bbe 90: ba:c6 DISKSVMSMAS TER: CRUNOFF . SRCJINDEX.BLI:1> 3B 
; 1 28 6 
3 O08 1559 6 ESCRIPTOR (0) = 42005 
‘ one : 4 ge (.DESCRIPTOR (OJ, CHSPTR (. INPUT_I0B CIOBSA_DATA])); 
; 609 1 $¢ 
; 610 156 ! 
3; 611 1564 ' Remap transaction number for .INDEX and .XPLUS 
; oi¢ 1366 } commands, i.e., those with non-zero transaction numbers. 
: aie 1 ¢ Q IF .DESCRIPTOR C1] NEQ 0 THEN DESCRIPTOR C1] = .DESCRIPTOR [1] + .XTN_OFFSET; 
3 918 1369 
: 61 1570 IF .CMDBLK CNDX$V_MASTER] NEQ 0 
: 815 135) @ THEN EGIN 
erie Pbonnating § ent i 
; '! Generating a master index 
: 682 1875 6 ° 
3; 6 1576 6 IF .CMDBLK CNDX$V_OVERRIDE] 
; 624 1577 7 OR (.XPLBLK CXPL$V_VALIDJ AND .XPLBLK CXPL$V_MASTER]) 
: 625 1578 6 THE 
: 626 1579 7 BEGIN 
3 og? 1580 7 ! 
; 628 1581 7 ! Override master indexing information or 
3 6¢3 1286 7 ! this entry is a master entry. 
; 6350 1583 7 ! 
3 6631 1584 7 ! Insert entry into pool, permuting if necessary. 
; O36 138? f Increment index entry counter. 
: 634 1587 7 PERMUT (.DESCRIPTOR CO), CHSPTR (.INPUT_IOB CIOBS$A_DATA]), 
> 635 1388 , .DESCRIPTOR (1), .DESCRIPTOR (2); 
: 1590 7 INDEX_RECORDS = .INDEX_RECORDS + 1; 
; 1591 6 END; 
3 1338 6 END 
: 1593 5 ELSE 
3 1594 5 ! 
; ek 1595 5 ' Not a master index 
3 1596 5 ! 
3; 644 1597 5 IF .CMDBLK CNOX$V_OVERRIDE) 
HY 1598 6 OR (NOT (.XPLBLK CXPL$V_VALIDJ AND .XPLBLK CXPLSV_MASTER])) 
: 646 1599 5 THEN 
3; 647 1600 6 BEGIN 
g 968 199) 6 ! 
3; 64 16 g 6 ! Override master indexing information or 
3 $30 19h? e : entry is not a master index entry. 
; $3¢ 1605 6 ! Insert it into pool, permuting if necessary. 
: $37 1986 ? Increment index entry record counter. 
3; 655 1608 6 PERMUT (.DESCRIPTOR COJ, CHSPTR ( JnpuT_108 CIOBSA_DATA]), 
; 696 1609 6 .DESCRIPTOR C1], .DESCRIPTOR £2]); 
; 658 1611 INDEX_RECORDS = .INDEX_RECORDS + 1; 
3; 659 1916 END; 
; 660 161 
; 661 1614 ! 
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} Mark attributes block invalid. 
XPLBLK CXPL$V_VALID] = FALSE; 


CRE SORE TYPE EQL INDEX_ATTRIBUTES) AND (.FILE_IDENTIFIER EQL BRN_FILE)] : 
' 


Extended indexing attributes record group 


LOCAL 
STR_LEN; 


CONFUSE_COUNT = 0; 
' 
Get options flags. 


$XPO_GET (I10B = INPUT_IOB, FULLWORDS = 1); 
XPLBCK CXPLS$V_OPTIONS] = .(.INPUT_IOB CIOB$A_DATA]); 


— CNDX$V_PAGE _MERGE] 
BEGIN 


i Merging adjacent page references (ala TCX) 
ignore BEGIN-END attributes 


XPLBLK CXPL$V_BEG NJ] = FALSE; 
XPLBLK CXPLSVZEND] = FALSE; 
END; 

' 

Get SORT string if any. 


$XPO_GET (I0B = INPUT_IOB, FULLWORDS 
STR_CEN = .(.INPUT_IOB CIOBSA_DATA]); 


IF .STR_LEN NEQ 0 THEN $XPO_GET (IOB = INPUT_IOB, FULLWORDS = CHSALLOCATION (.STR_LEN)); 


SSTR_COPY (STRING = (.STR_LEN, CHSPTR (.INPUT_IOB CIOBSA_DATA))), 
TARGET = XPLBLK CXPL$T_SORTJ); 


1); 


1 
Get APPEND string if any. 


$XPO_GET (108 = INPUT_IOB, FULLWORDS 
STR_CEN = .(.INPUT_IOB CIOBSA_DATA)); 


IF .STR_LEN NEQ 0 THEN S$XPO_GET (I0B = INPUT_IOB, FULLWORDS = CHSALLOCATION (.STR_LEN)); 


$STR_COPY (STRING = (.STR_LEN, CHSPTR (.INPUT_I10B CIOBSA_DATA])), 
TARGET = XPLBLK CXPLS$T_APPEND]); 


1); 


: | 
} Attributes block now has valid information 


ik 


D 
INDEX INDEX == DSR/DSRPLUS DSRINDEX/INDEX Utilit 16-Sep-1984 00:45:29  VAX-11 Bliss-32 V4.0-742 Page 14 
v04-000 GLOBAL ROUTINE NDXINP == Process input ae 127808 -1 3b 90 a;46 DISKSVMSMASTER: CRUNOFF . SRCJINDEX.BLI:1~ (2) 
; 719 1678 5 XPLBLK CXPL$V_VALID] = TRUE; 
: 480 ieee _— 
SS é 1675 4 COTHERWISE) : 
: 3S? 1899 ies: 
; 4 ; 1678 Invalid record group 
: f f 1680 CONFUSE_COUNT = .CONFUSE_COUNT + 1; 
: 729 168¢ IF .CONFUSE_COUNT LEQ 5 
: ; 9 ieee _ 
: 1685 5 XIF XBLISS (BLISS32) 
: 738 . 1686 : XTHEN ! Signal error for BLISS32 
; 039 1688 5 SIGNAL (INDEX$_INVRECORD, 1, INPUT_I0B CIOBST_RESULTANT)); 
: Leys ¥ 1e29 ZELSE ! Use $XPO_PUT_MSG otherwise 
: 7 169 $XPO_PUT_MSG (SEVERITY = WARNING 
: ti U 1898 STRING = $STR_CONCAT ("invalid record group type in file ''', INPUT_IOB CIOBST_R 
> 741 U 1694 
3: 7% 1695 5 &FI 
: 7% 1696 § 
5 1697 4 END; 
: 745 1698 4 TES; 
: 746 1699 4 
: 747 1700 3 END; 
: 748 1701 3 
: 988 1708 3 ts 
> 751 1704 IF .INDEX_RECORDS EQL 0 
: $28 1506 — 
: 1707 2 ZIF XBLISS (BLISS32) 
3 735 ' 1708 THEN ! Signal error for BLISS32 
: 13 1710 $ SIGNAL (INDEX$_NOINDEX, 1, INPUT_IOB CIOB$T_RESULTANT)); 
: 4s y ar $ ELSE ! Use $XPO_PUT_MSG otherwise 
: 714 $XPO_PUT_MSG (SEVERITY = WARNING, 
: ree u 1713 OeTRIRG = $STR_CONCAT ('no index information in file '*', INPUT_10B CIOBST_RESULTANTJ, '''*)); 
: oes hie 5 
: 766 1719 IF .CMDBLK CNDX$V_LOG) 
oni 
: 769 L 17 é ZIF XBLISS (BLISS32) 
3 oy if ? ZTHEN ! Signal error for BLISS32 
: Ad 17 5 SIGNAL (INDEX$_COMPLETE, 1, INPUT_10B CIOB$T_RESULTANT)); 
: 774 U 4 ; ZELSE ! Use $XPO_PUT_MSG otherwise 


ccc 
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SXPO PUT MSG (SEVERITY = SU 
STRING = SSTR_CONCAT ( 


tk 


processing complete ''', INPUT_IOB CIOBST_RESULTANTJ, 


CCESS 


m$p=1986 19:08: 


3? VAX=11 Bliss-32_V4.0-742 
D1 eKSVMSA STER: CRUNOFF.SRCJINDEX.BLI;1 


1% «23 


aef 


iets ENTRIES = ,INDEX_ENTRIES + .INDEX_RECORDS; ' Accumulate number of index entries 
OFFSET = .HIGHEST RTN_OUT; ' Remember last transaction number 
¢ $100. CLOSE (108 = INPOT_10B); ! Close the input file 
-TITLE INDEX poe -- DSR/DSRPLUS DSRINDEX/INDEX Utili 
LIDENT \v04-000\ 
-PSECT S$PLITS,NOWRT,NOEXE,2 
28 4—E 52 2E€ 00000 P.AAA: .ASCII \.RNX\ : 
5 4D 54 E 4h P.AAB ASCII \.TMS\ $ 
58 45 54 2E 00008 P.AAC: .ASCII \.TEX\ : 
“f 52 s se QO00C P.AAD: .ASCII \.BRN\ : 
58 49 4 E 00010 P.AAE: .ASCII \.BIX\ : 


.PSECT $OWNS,NOEXE,2 
00000 XTN_OFFSET: 


00004 HIGHEST -XIN OUT: : 
00000000 00008 INDEX -ENTRIES: ‘ 
0004 O000C RNX_FILE: 
.WORD 4 : 
01 O&F 0000 “BYTE 14, 1 : 
00000000" 0001 -ADDRESS P.AAA : 
0004 00014 TMS_FILE: 
» WORD 4 g 
01 OF 00016 “BYTE 14 4. 1 : 
00000000" 00018 “ADDRESS P.AAB : 
0004 O001C TEX_FILE: 
.WORD 4 ; 
01 OF 901g “BYTE 14, 1 : 
00000000" 002 ADDRESS P.AAC : 
0004 00024 SLOBSDEF AULT: : | 
01 OF 900 6 “BYTE 14, 1 ; 
00000000" 000 -ADDRESS P.AAD : | 
0004 0002C SIOBSDEFAULT: 
~ WORD 4 3 
01 M3 000 “BYTE 14, 1 ; 
00000006" 000 “ADDRESS P.AAE F | 
EXTRN DSRINDEXS -BADLOGIC 
SEXTRN DSRINDEX$~BADVALUE 
XTRN DSRINDEXSTINSV1AMEM 
-EXTRN DSRINDEX$"LINELENG 
SEXTRN DSRINDEXS~NOREF | 


INDEX 
v04-000 


OOF 4 


8F 
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STRSFAILURE, XPOSGET 
XPOSFAILURE, XPOSCLOSE 
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nput 
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0 

000000006 E 
14 =A 

Q 

0 

28. OA 
000000006 5 
000000006 f 
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69000000 
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000000006 3 
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CLRQ ss =( SP) ; 

MNEGL ae - ($P) : 

PUSHAB Rsé BL ; 

PUSHAB Hn FI : SPEC ; 

g CALLS XPOSPARSE_SPEC : 

4 BLBS 3 
46 MOVW PARSE_BLK+40 : 
4A 1$: MOVAB 4 sag Rse- SPEC, RO : 
51 MOVL RO, 10B$+% ; 
33 TSTW  PARSE_BLK+40 ; 
5 BNEQ $ : 
SA MOVAB pate rt 10B$+8 ; 
62 BISB a ; 
6 ove 10B$+44 : 
6A CLRQ = ={ép) : 
6C PUSHAB 1988 F 
6F CALLS # xPOSOPEN ; 
76 CMPL = RO, #2129921 : 
7D BEQL ; 
7F MOVCS #0, (SP), #0, #244, I0B$ : 
Hi MOVL  #50397245, 10B$ : 
90 MOVW #526, IOB$RESULTANT+2 : 
96 MOVAB $108 Sgr FILE SPEC Bs 4 F 
9E MOVAB bet a {0B$+ : 
A6 2S: BISB2 #1, I0B$+4 : 
AA OVvB 10B$+44 : 
AE PUSHAB oPEN ERROR ; 
B4 CLAL ris spy F 
B6 PUSHAB : 
B9 CALLS H3° + posop OPEN : 
co 3$: BBC #1 CHDBLKS |. 4$ : 
¢ PUSHAB INPUT _I0B+28- : 
CB PUSHL : 
¢ PUSHL ADSRINDEXS PROCFILE : 
D CALLS , LIBSSIGNAL 3 
DA 4$: BLBS  CMDBLK, 5 ; 
E1 CALLS #0, MAKNDX : 
£8 PUSHAB STRSFAILURE : 
EE CLRL  =(SP) : 
F PUSHAB $STRSTARGET ; 
6 PUSHAB $STRSSTRING : 
F9 CLRL = = (SP) : 
F CALLS #5, XSTSCOPY : 
CLRL AGENO : 

CLRQ  XTN_OFFSET : 

E 5$: TSTL § NDXPOL ; 

1 BNEQ 6$ 3 
16 CALLS #0, XINIT : 
1D 6$: MOVZWL DSC, -(SP) : 
4 CLRL = = (SP) ; 

6 PUSHL C+4 F 

g CALLS #3, SAVDAT : 

MOVL + B00KID : 

A MOVW * 10B$+52 : 

: MOVB a3. | 10B$+54 : 

4 MOVB * 10B$+44 : 
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INDEX INDEX == DSR/DSRPLUS DSRINDEX/INDEX Utilit 1b-5¢ Sep- 3 VAX=-11 Bliss-32 V4.0-74 LA’ 
v04-000 GLOBAL ROUTINE NDXINP == Process input aie 1 =Sen- 198 90:38 ‘2 DISK Symen TER: CRUNOFF. SS ACJINDEX. BLI; ryee 3B vO¢ 

02¢6 31 001F7 BRW 38$ P ; 

0 44 AE D9 1FA 15$: MOVL ‘INPUT 108+56, RO + 1432 : 

54 € Fe BLBC 4 + 1434 ; 

, ge eet {ap peas 

40 AE 04 Ad 4 A MULW3 , 4(RO), 10B$+52 + 1441 ; 

42 AE : 4 ¢ MOVB > 108$+54 : ; 

38 OA 1 MOVB 10B$+44 : ; 

A DD 00214 PUSHL R 6 F F 

E p4 18 CLRL. = =(SP) : : 

16 AE 9F 0021 PUSHAB 1988 : ’ 

6B 0 FB 1B CALLS #3, XPOSGET ; : 

: 1 1 BRB 14§ + 1434 ; 

16 4 €9 00220 16$: BLBC  R4, + 1453 : 

40 AE 4 : 0 MOVW #4, I0B$+52 ; ; 

42 AE 2 0 MOVB #2, :~:10B$+54 : ; 

38 AE 6 90 00228 MOVB #6, I0B$+44 : : 

A 00 6 F PUSHL R10 : : 

E D4 1 CLRL = (SP) : : 

14 AF 9F 00233 PUSHAB 1088 : ; 

03 FB 00 CALLS #3, XPOSGET : : 

51 44 BE 3¢ 00239 178:  MOVZWL @INPUT_ 108 +56 RECORD_TYPE + 1455 ’ 

01 J by o08%p CMPL  -RECORD_TYPE, in ; 1460 : 

55 44 BE FO ft Ye 024 ASHL #16, @INPUT 108456, INDEX_ VERSION + 1462 ; 

02 5 D1 0024 CMPL INDEX_VERSION, s 1464 3 

; 09 if 0248 BNEQ 18$ ; ; 

FEFFFFFF © 8F 6 D1 00240 CMPL FILE_IDENTIFIER, #1 : 1465 ; 

82 13 00254 BEQ 148 ~ : : 

28 «AE 9F 00256 18 PUSHAB INPUT_108+28 : 1475 : 

or DD 00259 PUSHL #1 : ; 

000000006 8F ODD 00 5B PUSHL # SRINDEXS INVINPUT : ; 

000000006 00 03 FB 002061 19$: CALLS # SIGNAL : ; 

0297 31 00268 BRW aig * + 1485 ; 

02 51 D1 00268 20$:  CMPL = RECORD_TYPE, #2 : 1491 ; 

3F 12 00 6 BNEQ 22$ : ; 

57 D4 0027 CLRL CONFUSE sous > 14% ; 

40 AE 14 BO 00272 MOVW #20, 106 : 1497 : 

42 AE U2 90 00276 MOVB #2, 10B : : 

38 = AE 98 90 O0027A MOVB # tee ; 3 

A DD 0027 PUSHL R16 : ; 

7E p4 CLRL (SP) : ; 

14 AF F PUSHAB ee : F 

68 03 F CALLS #%, XPOSGET : : 

44 AF D MOVL INPUT_I0B+56, RO : 1501 F 

fe 8 bosac gett ‘ben : 

00000000' EF 60 990000 0: EF C ADDL3 XTN_OFFSET, (RO), HIGHEST_XTN_OUT : 1510 : 

00000000" EF bo 9 PUSHL WIGREST_XTN_OU UT : 1511 ; 

AO 9F A PUSHAB 4(RO) ; ; 

000000006 EF re CALLS ASGXTN ; : 

FF29 3 ne BRW 14§ : 1457 : 

03 1 3: CMPL = RECORD_TYPE, #3 : 1518 : 

03 be BEQL : & ; ; 

0004 BRW $ : $ 

7 D4 00287 238:  CLRL CONFUSE co uN NT ; 1536 : 

40 AE C BO 00289 MOVW #12, 10B$+ : 4 ; 
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00000480 


000000006 
000000006 


04 
19 000000006 
28 000000006 


2E 000000006 
OF 000000006 
15 000000006 


000000006 
000000006 
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FE NUWOWWI FON OC 


4 9 VAX-11 BL HP -32 v4.0 
£01984 99:58:28 | NNSS 
MOVB #2, 10B$+54 
OVB #6. 10B$+44 
PUSHL R16 
CLRL. -=(SP) 
PUSHAB 198s 
CALLS POSGET 
HOVE tweut _108+56, R1 
MOVL G(R C13 DESCRIPTOR=-4(1) 
AUBLEQ #3, 
ADDL3 #3, DESCRIPTOR, RO 
DIVL2 #4, 
MULWS #4, RO, 10B$+52 
MOVB #2. 10B$+54 
MOVB 10B$+44 
PUSHL R10 
CLRL = (SP) 
PUSHAB 198 
CALLS #3, XPOSGET 
CMPL DESCRIPTOR, #1200 
BLEG 25$ 
PUSHL #DSRINDEX$_ TRUNCATED 
CALLS #1 L1BSsI 
MOVZWL #1200, DESCRIPTOR 
PUSHL INPUT. 10B+ 
PUSHL DESCRIPTOR 
CALLS #2, DMPENT 
TSTL DESCRIPTOR+4 
BEQL «82 
ADDL2 XTN OFFSET DESCRIPTOR+4 
BBC Hee HDB K+, 38 $ 
BBS RDBLE 
BLBC 5° 
BBC Wse Oi BCK. 298 
BBS a4. ramet 28$ 
BLBC a$ 
S ase XPLBLK, 29$ 
PUSHL DESCRIPTOR+8 
PUSHL DESCRIPTOR+4 
PUSHL INPUT _IOB+ 
PUSHL DESCRIPTOR 
CALLS PERMUT 
INCL TNOEX RECORDS 
BICB2 #1, XPLBLK 
R 14 
31 


1 BLi 0-742 
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K 14 
INDEX INDEX == DSR/DSRPLUS DSRINDEX/INDEX Utilit 16-Se0-1984 00:45:29 VAX=11 Bliss-32 V4.0-74 Pp 1 LAY 
¥04=000 GLOBAL ROUTINE NOKINP see Procene input dite (exeBaHGRS PSiGaiey Nahe aeteR Mile Secarwex.er13% 3} woe 
42 AE Ag MOVB #2, 108$+54 ; 
1 AE g 38 A MOVB é 108$+44 : 
A 0d 0038 PUSHL R16 : 
z p4 8 CLRL. = (SP) : 
14 Ar F PUSHAB $ : 
63 03 F 87 CALLS #3, X : 
90000006 Ee 44 D BA MOV @INPUT 108+56, XPLBLK + 1634 
07 9990 06 cF : C2 BBC #3, CMDBLK+1, 33$ : 1636 
00000006 EF A OO3CA BICB2 «#24, + 1644 
40 AE 4 : D1 33$: MOV . + 1650 
42 AE : 05 MOVB #2, 10B$+54 : 
38 OA 9 09 MOVB $+44 : 
A DD 00300 PUSHL 6 : 
E b4 OF CLRL. = (SP) : 
14 AE F 003E1 PUSHAB ges ; 
68 03 FB 00364 CALLS #3, XPOSGET ; 
5 44 BE 00 003E7 MOVL INPUT_108+56, STR_LEN + 1651 
IE 13 003EB BEQL 4 + 1653 
50 03 AS 9E O03ED MOV (R3), RO ; 
50 4 ¢ 0 F1 Divi2 #4, RO : 
40 AE 50 4 A F4 MULW3 #4, RO, I10B$+52 ; 
42 AE 2 20 O3F9 MOVB ae, 10B$+54 ; 
38 OA 06 90 003FD MOVB #6. I0B$+44 : 
A DD 00401 PUSHL R10 F 
7E 04 00403 CLRL. = = (SP) ; 
14 AE 9F 00405 PUSHAB 10B$ ; 
6B 03 FB 00408 CALLS #3, XPOSGET : 
04 AE 53 BO 0040B 34$:  MOVW  STR_LEN, SSTRSSTRING > 1656 
06 AE OE 90 0040F MOVB #147 SSTRSSTRING+2 ; 
07 AE 01 90 0413 MOVB #1, SSTRSSTRING+3 ; 
08 AE 44 AE 00 0041 MOVL INPUT _I0B+56, SSTRSSTRING+4 ; 
000000006 EF 9F O4i¢ PUSHAB STRSFAILURE F 
E D4 004 CLRL = = (SP) : 
000000006 EF 9F 004 4 PUSHAB $STRSTARGET : 
10 AE 9F 0042A PUSHAB $STRSSTRING F 
43 D4 00420 CLRL = = (SP) : 
000000006 EF 05 FB 0042F CALLS #5, XSTSCOPY : 
40 AE 04 BO 004 MOVW #4. 10B$+52 > 1661 
42 AE 02 90 0043A MOVB #2, I0B$+54 ; 
38 SOA 6 90 004 VB #6, 10B$+44 ; 
A DD 0044 PUSHL R10 ; 
E D4 0044 CLRL. = (SP) : 
14 AE 9F 00446 PUSHAB $ : 
68 03 FB 00449 CALLS #3, XPOSGET ; 
5 44 BE DO 0044¢ MOVL §§ @INPUT_I0B+56, STR_LEN + 1662 
5 13 00450 BEQL > 1664 
50 03 Ads 9 5 MOV (R3), RO ; 
20 4 €6 0045 DIVL2 #4, RO : 
40 AE 0 4 A 5 MULWS #4, RO, I10B$+52 : 
42 AE 2 30 45 MOVB #2. 10B$+54 ; 
3 AE 6 9 46 MOvB #6, 10B$+44 F 
A DD 004 PUSHL R10 : 
e p4 4 CLRL. = (SP) ; 
BREE EME I sees 7 
04 AE g $0 rh 35$: MOV STALLEN B  TRSSTR NG : 1667 
6 AE 0€ 474 MOVB #147 SSTRSSTRING+ ; 


14 
INDEX INDEX == DSR/DSRPLUS DSRINDEX/INDEX Utilit 1-56 -1984 00:45:29  VAX-11 Bliss-32 V4.0-742 Pp 

v04-000 GLOBAL ROUTINE NDXINP == Process input file 1 =300- 1382 90 baie DISKSVMSMASTER: CRUNOFF .SRCJINDEX.BLI:1> (3 

07 AE 01 90 478 mMOVB so] $STRSSTRING?3 : 

8 AE 44 AE p arc MOVL INPUT_ 108456, SSTRSSTRING+4 : 

000000006 i ' 4 j PUSHAB STREP AILURE : 

000000006 EF oF 489 PUSHAB $STRSTARGET : 

10 AE 9F O048F PUSHAB $STRSSTRING : 

43 D4 43e CLRL 48?) ; 

00000006 EF FB 004 CALLS #5, XSTSCOPY : 
00000006 EF 1 : 4 BISB2 #1. XPLBLK ; 1672 

9 4A BRB + 145 

3 D6 004A4 36S: INCL  CONFUSE_COUNT : 1680 
05 7 D| i: CMPL NFUSE-COUNT, #5 + 1682 

12 14 004A BGTR : 
28 AF 9F O04AB PUSHAB INPUT_108+28 : 1688 

DD AE PUSHL #1 : 

000000006 8F DD 0048 PUSHL #DSRINDEXS INVRECORD : 

000000006 00 3 FB 00486 CALLS #3, LIBS$SIGNAL ; 
FD1B 31 004BD 37$: BRW 4 + 1428 
58 05 94¢0 8$:  TSTL NDEX_RECORDS + 1704 

12 12 004¢ BNEQ : 
28 AE OF 004C4 PUSHAB INPUT_10B+28 : 1770 

gi DD 004¢7 PUSHL #1 : 

000000006 8F DD 004¢9 PUSHL #DSRINDEX$_NOINDEX : 

000000006 00 03 FB OO4CF CALLS #3, LIBS$SIGNAL : 
12 000000006 EF 01 gt 00406 39$: BBC #1, CMDBLK+1, 40$ + 1719 
28 AE SF O04DE PUSHAB INPUT_108+28 + 1725 

01 DD 004E1 PUSHL #1 : 

000000006 8F DD 004E3 PUSHL #DSRINDEX$_COMPLETE : 

000000006 00 03 FB 004€9 CALLS #3, LIBSSIGNAL ; 
00000000" EF 58 C O04 40$:  ADDL2 INDEX RECORDS, INDEX_ENTRIES + 1734 
00000000" EF 00000000' EF 00 O04F MOVL HIGHEST XTN_OUT, XTN~OFFSET : 1735 
38 OA 2 90 00502 41$:  MOVB #2, I0BS+44 : 1736 

A oD 00506 PUSHL R10 ; 

7E D4 9050 CLRL = = (SP) : 

14 AE 9F O050A PUSHAB 1088 ; 

000000006 EF 03 FB 00500 CALLS #3, XPOSCLOSE F 
04 00514 RET : 1737 


; Routine Size: 1301 bytes, Routine Base: S$CODE$ + 0000 


; «785 1738 1 
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INDEX INDEX == DSR/DSRPLUS DSRINDEX/INDEX UtiLit 16-Sep-1984 00:45:29 VAX-11 Bliss-32 V4.0-742 Page 23 
v04-000 GLOBAL ROUTINE MAKNDX == Make output inioe” 12-808- 1382 99:68:86 DISKSVMSMASTER:CRUNOFF . SRCJINDEX.BLI:1> 3 
; 188 17? } ZSBTTL ‘GLOBAL ROUTINE MAKNDX == Make output index’ 
; «4789 174 1 GLOBAL ROUTINE MAKNDX : NOVALUE = 
; 1742 1 
; 79 1745 1 S44 
: 79 1744 1! 
; 1745 1 ! FUNCTIONAL DESCRIPTION: 
; 794 1768 1! 
. ue 1747 1! This routine generates an output index if any index entries 
; £36 17n8 : were processed by NDXINP. 
; 798 1750 1! The internal index and transaction pool space is also released 
; 799 1751 1! if necessary. 
; 800 17 § 4 
; 801 175 1 ! FORMAL PARAMETERS: 
; 80 1754 1! 
; 80 1755 1! None. 
; 804 238 1! 
; 805 1757 1 =! IMPLICIT INPUTS: 
; 806 1758 1! 
3; 807 1759 1! CMDBLK - Command Line information block 
3 B08 1799 ; INDEX_ENTRIES = Number of index entries processed by NDXINP 
; 810 1708 1 ! IMPLICIT OUTPUTS: 
; 811 1763 1! 
3 Big 1764 1! INDEX_ENTRIES = is set to zero. 
; 81 1765 1! . 
; 814 1766 1! The internal index and transaction pres space is released if 
3 ai? \7er : necessary and the global pool variables are initialized. 
3 87 1769 1 ! ROUTINE VALUE: 
; 818 1770 1 ! COMPLETION CODES: 
; 819 1771 1! 
; 820 iors 1! None. 
s el 17735 1! 
3 bsé 1774 1 ! SIDE EFFECTS: 
, & 1775 1! 
3; 824 1776 1! None. 
3; 825 1777 1 !e- 
: 826 1778 1 
3 a4 a4 2 BEGIN 
3 a) He 3 ; IF {INDEX SMTREES NEQ 0) AND .CMDBLK CNDX$V_OUTPUT] 
3 34 1788 BEGIN 
3 3 HA 9 ! : : 
3 $2 178? Some index entries were processed by NDXINP and /OUTPUT specified 
; B35 1787 LOCAL D 
3 3 1738 DEFAULT_TYPE; ! Pointer to default file type string 
: 838 1790 SELECTONE .CMDBLK CNDXSH_FORMAT) OF 
3; 839 1791 SET 
: 0 1236 
: 1 179 CDSR): ; 
: 4g 1794 DEFAULT_TYPE = RNX_FILE; ! Default type is .RNX for DSR 
; «84 1795 
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INDEX == DSR/DSRPLUS DSRINDEX/INDEX Utilit 16-Sep 45:29 VAX-11 BLi ite 
ae aes Pik Brod ee St Mc 
179 DEFAULT nT YPES : ‘TMs FILE; ! Default type is .TMS for TMS 
CTEX): 
DEFAULT_TYPE = TEX_FILE; ! Default type is .TEX for TEX 
TES; 
$XPO_10B_ INIT (I0B = OUTIOB); 
$XPO-OPER (I0B = OUTIOB ! Open output file. 
FIL E_SPEC = CMDBLK CNDX$T_OUTPUT FILE, DEFAULT = .DEFAULT_TYPE, 
RELATED = CMDBLK BNOXST RELATED_FILEJ, OPTIONS = OUTPUT 
= ZBLISS (BLISS52) XTREN , FATLURE = OPEN_ERROR ZF] 
NDXFMT (); ! Generate final output index. 


IF .CMDBLK CNDX$V_LOG) 
THEN ! Display /LOG message 


aaL.ISS (BLISS32) 


! Signal error for BLISS32 
SIGNAL CINDEX$_CREATED, 1, OUTIOB CIOBST_RESULTANT)); 
! Use SXPO_PUT_MSG otherwise 


$XPO_PUT MSG (SEV erie = SUCCESS, 
STRING = $STR_CONCAT (‘created file ''*, OUTIOB CIOBST_RESULTANT], 


oe (10B = OUTIOB); ! Close output file. 


i NEQ 0 


BEGIN 

i Release internal binary index pool. 
FPOOL (NDXPOL); 

NDXSGE 0; 

NDXSGF 0; 

END; 


-XTNPOL NEQ 0 
THE 


BEGIN 

Release internal transaction pool. 
FPOOL (XTNPOL); 

XTNCNT 3 


a 
—_ 
z 
“nz 
vw 
huun 


XTNSGP = 0; 


INDEX == DSR/DSRPLUS DSRINDEX/INDEX UtiLit 16- =S$ep-1984 00:45:29  VAX-11 Bliss-32 v4.0-74 5 LIS 
GLOBAL ROUTINE MAKNDX == Make output ye bey 14 ~ten> 138 99: :06:46 DISKSVMSMASTER: CRUNOFF. Se ACJINDEX. BLI; P39 © § V 
901 1853 XTNTAB = 0; ’ 
30 1832 NPAGER = 9 
sO = : 
905 185 INDEX_ENTRIES = 0; ' Reset index entry counter : 
906 1858 END; ~ : 
OFFC 00000 ENTRY MAKNDX, Save R2,R3,R4,R5,R6,R7,RB,RI,R10,- = 1741 
58 99000 006 EF 9E 0000 MOVAB FPOOL, R11 : 
5A 000000006 EF 9€ 0000 MOVAB NDXPOL, R10 : 
59 00000000" EF 9E 00010 MOVAB INDEX ENTRIES, R9 : 
35 Soooboos EF oF SootE WOVAR  fopecrar™ 
69 BS 900 § TSTL NDEX_ENTRIES + 1781 
03 12 00027 BNEQ 3 ; 
0098 31 00029 1$: BRW : 
F9 68 01 FI 000¢¢ 2$: BBC #1, CMDBLK ; 
50 04 AB 32 00030 CVTWL  CMDBLK+4, ko’ + 1790 
01 50 B1 00034 CMPW RO, #1 + 1793 
06 12 00037 BNEQ =? ; 
56 04 Ad OE 90039 MOVAB RNX_FILE, DEFAULT_TYPE + 1794 
19 11 0003D BRB 5$ : 
02 50 B1 0003F 3$ CMPW 3SsaRO, «#2 + 1796 
08 19 00042 BLSS 4$ : 
- 36 4 Opes? oa ee 
56 0c Ad 9 00049 MOVAB TMS_FILE, DEFAULT_TYPE : 1797 
09 11 0004D BRB 5$ * ; 
04 50 B1 O004F 4$ CMPW RO. #4 : 1799 
04 12 00052 BNEQ ; 
56 14 Ad YE 00054 MOV te _FILE, DEFAULT_TYPE > 1800 
O0FS BF 00 bE 00 2¢ 00058 5$ MOVC . (SP). #0, #24%, I0BS + 1804 
67 0301003D $F DO 00060 MOVL = #5 397245 10B$ : 
1€ A? n20E Be 80 90067 MOVW #526 LOBSRESUL TANT +2 : 
04 AZ 30 AB : 9060 MOVAB $108$F IL E SPEC, 10B$+4 : 1809 
08 A7 56 D0 00072 MOVL DEFA 1 TYPES OB$+ : 
OC Az 40 Ag 9—E 00076 MOV S10BSR RECATED. 10B$+12 : 
ee Av : : 0078 BISB » 10B$+46 : 
ee 1 007F MOVB 10B$+44 : 
000000006 EF iF 0088 PUSHAB Seen : 
5 DD $088 PUSHL F 
$55888888. BERR | HA Bh: mona aay 
12 01 «AB 84 ft 00 BBC 14 cROBLKS, 6$ : 1813 
1¢ =A? «OF OOOA PUSHAB : 181 
1 oD A PUSHL 8 é 
ERR 000000006 8F DD A PUSHL re BES a CREATED : 
2c 0° 3 i 63 6$: MOVE 10B$+ > 1828 
000000006 EF 9F 0008 PUSHAB XPOS? ATLURE : 


15 
INDEX INDEX == DSR/DSRPLUS DSRINDEX/INDEX Utilit 1h-52 1984 00:45:29 VAX-11 Bliss-32 V4.0-742 Pa 6 
v04-000 GLOBAL ROUTINE MAKNDX == Make output inden” 12-808-18e 968; 6 DISKSVMSMASTER:CRUNOFF .SRCJINDEX.BLI:1>— (33 
43 D4 BC CLRL -(SP) : ; 
57 0D B PUSHL 3 ‘ 
00000000G_ EF 03 F C CALLS #3, XPOSCLOSE : : 
oA D oe 7$: TSTL DXPOL 3; 1831 ; 
Ba C9 BEQL 3 ; 
5A DD CB PUSHL 0 3; 1837 ; 
6B 01 FB CD CALLS #1, FPOOL 3 : 
S454 EF D4 00000 CLRL DXSGE : 1838 ‘ 
0000000G EF D4 00006 CLRL NDXSGF 3: 1839) ‘ 
000000006 cf o QODC 8$ TSTL XTNPOL : 1842 . 
D 135 QO0E BEQL 9$ : ; 
000000006 fr oF SRE PUSHAB XTNPOL 3 1848 ‘ 
B 1 FB QOOEA CALLS #1, FPOOL 3 ‘ 
44 G EF 04 QOOE CLRL XTNCNT : 1849 : 
00 88 G EF D4 OOOF CLRL XTNLSP : 1850 ‘ 
44 4445 EF D4 8 F CLRL XTNLSX ; 1851 ; 
00 be EF D4 FF CLRL XTNSGP 3 1936 ; 
444 000G EF D4 00105 CLRL XTNTAB ; 185 ; 
0000000G EF 04 00108 CLRL XPAGEN 3: 1854 . 
69 D4 00111 9$: CLRL INDEX_ENTRIES : 1857 : 
04 00113 RET ; 1858 : 
; Routine Size: 276 bytes, Routine Base: $CODE$S + 0515 : 
; 907 1859 1 ; 
; 908 1860 1 END ! End of module ; 
: 909 1861 1 F 
; 910 1862 0 ELUDOM : 
.EXTRN LIBSSIGNAL ; 
3 PSECT SUMMARY ; 
; Name Bytes Attributes ‘ 
: SOWNS 34 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) PY 
: SPLITS NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; SCODES 1577 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
3 Library Statistics ‘ 
: eeceeece Symbols eowceconn Pages Processing 
3 File Total Loaded Percent Mapped Time 


~-$255$DUA28: CSYSLIBIXPORT.L32; 1 590 187 31 252 00:00.1 


INDEX == DSR/DSRPLUS DSRINDEX/INDEX Utilit 1B-50 Sep-1984 VAX-11 Bliss-32 V4.0-742 L}s 
04-000 GLOBAL ROUTINE MAKNDX == Make output "Indes 3057138 9:38 fe DISKSVMSMASTER: CRUNOFF .SRCJINDEX.BLI; A 3 v0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1S$: INDEX/OBJ=OBJ$: INDEX MSRC$: INDEX/UPDATE=(ENHS$: INDEX) 


Rize 3 1577 code + 72 data bytes 
nm Time: 1:01 


3 ii ceadl Time: ¢; ‘ 
3 Lines/CPU Min: 8 

3: Lexemes/CPU-Min: 78031 

3 nenory specs 515 pages 
3 a 


; Compi jon yooncigste 
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